30 PRINT : INPUT "PLEASE INSERT THE CATALYST 3.0 DISK IN A DISK DRIVE AND PRESS <RETURN>...";A$
40 ONERR GOTO 200
50 PRINT D$"VERIFY"F$
55 PRINT D$"OPEN"G$",TDIR": PRINT D$"READ"G$: FOR I = 0 TO 1: INPUT A$:I = LEFT$(A$,11) = " GTK.SYSTEM": NEXT : PRINT D$"CLOSE":L = VAL( MID$ (A$,66)): IF L <25000 THEN POKE 222,2: GOTO 200
60 A = 4096: PRINT D$"BLOAD"F$",A"A",TSYS"
70 POKE 216,0: IF PEEK(A) < >169 THEN PRINT : PRINT : PRINT : PRINT "ERROR!<CTRL-G><CTRL-G><CTRL-G> WRONG FILE. MOD TERMINATED!": END
80 B = PEEK(A +1): PRINT
90 IF B >127 THEN INPUT "FILE IS MODIFIED! DO YOU WISH TO CHANGEIT BACK TO ITS ORIGINAL FORM (Y/N)? ";A$:B = B -128: GOTO 105
100 IF B <128 THEN INPUT "ORIGINAL FILE! DO YOU WISH TO MODIFY IT TO DISPLAY SECONDS (Y/N)? ";A$:B = B +128
105 ONERR GOTO 200
110 POKE A +1,B: IF A$ = "Y" OR A$ = "y" THEN PRINT D$"BSAVE"F$",A"A",L"L",TSYS": VTAB 19: PRINT "ALL DONE<CTRL-G>"
120 POKE 216,0: VTAB 21: PRINT "BYE": END
200 POKE 216,0:E = PEEK(222): VTAB 21: IF E = 6 OR E = 7 THEN PRINT "<CTRL-G>PATH NOT FOUND.";
203 IF E = 4 THEN PRINT "<CTRL-G>WRITE PROTECTED.";
204 IF E = 2 THEN PRINT "WRONG GTK FILE.<CTRL-G>";
205 IF E = 16 THEN PRINT "<CTRL-G>SYNTAX ERROR.";
210 IF E < >2 AND E < >4 AND E < >6 AND E < >7 AND E < >16 THEN PRINT "DISK ERROR.<CTRL-G>";
220 INPUT " TRY AGAIN (Y/N)? ";A$: IF A$ = "Y" THEN RUN